|
1300
|
Is it possible to cancel or discard the values during validation
// Occurs before user changes the cell's value.
Procedure OnComValidateValue HITEM llItem Integer llColIndex Variant llNewValue Boolean llCancel
Forward Send OnComValidateValue llItem llColIndex llNewValue llCancel
Showln "ValidateValue" llNewValue
Showln "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. "
Showln "The DiscardValidateValue restores back the previously values."
Send ComDiscardValidateValue
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Set ComCauseValidateValue to OLEexValidateCell
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Text" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1299
|
Is it possible to validate the values of the cells only when user leaves the focused item
// Occurs before user changes the cell's value.
Procedure OnComValidateValue HITEM llItem Integer llColIndex Variant llNewValue Boolean llCancel
Forward Send OnComValidateValue llItem llColIndex llNewValue llCancel
Showln "ValidateValue" llNewValue
Showln "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. "
Move True to Cancel
Showln "You can not leave the item/record until the Cancel is False."
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Set ComCauseValidateValue to OLEexValidateItem
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Text" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1298
|
We would like to validate the values of the cells. Is it possible
// Occurs before user changes the cell's value.
Procedure OnComValidateValue HITEM llItem Integer llColIndex Variant llNewValue Boolean llCancel
Forward Send OnComValidateValue llItem llColIndex llNewValue llCancel
Showln "ValidateValue" llNewValue
Showln "Change the Cancel parameter for ValidateValue event to accept/decline the newly value."
Move True to Cancel
Showln "You can not leave the cell until the Cancel is False."
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Set ComCauseValidateValue to OLEexValidateCell
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Text" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Set ComCellValue of hoItems (ComAddItem(hoItems,"1/1/2001")) 1 to "text"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1297
|
Is there any way to add auto-numbering
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Pos" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "1 pos ''"
Set ComPosition of hoColumn to 0
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Get ComAddItem of hoItems "Item 3" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
1296
|
How can I format my column to display the percent values “5,00%”
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Percent" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "((dbl(value) * 100) format '2|,|3.')+'%'"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0.5 to Nothing
Get ComAddItem of hoItems 0.4 to Nothing
Get ComAddItem of hoItems 0.75 to Nothing
Send Destroy to hoItems
End_Procedure
|
|
1295
|
I can't control bar's transparency if the bar is overlaid. What can be done
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComDrawGridLines to OLEexHLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexHLines
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComAllowLinkBars of hoChart to False
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaid of hoBar OLEexOverlaidBarsTransparent to 0
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Set ComItemBar of hoItems h "A1" OLEexBarTransparent to 80
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "A3" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A3" Nothing
Set ComItemBar of hoItems h "A3" OLEexBarTransparent to 50
Send Destroy to hoItems
End_Procedure
|
|
1294
|
How can I show the child items with no identation
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexGroupLinesOutside
Set ComIndent to 12
Set ComHasLines to OLEexThinLine
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
1293
|
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComIndent to 12
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
1292
|
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexGroupLinesOutside
Set ComIndent to 12
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
1291
|
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexGroupLinesInsideLeaf
Set ComIndent to 12
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
1290
|
Is there other ways of showing the hierarchy lines (exGroupLinesInside)
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexGroupLinesInside
Set ComIndent to 12
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
1289
|
Is there other ways of showing the hierarchy lines (exGroupLines)
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexGroupLines
Set ComIndent to 12
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) "SubChild 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
1288
|
How can I specify non-working dates for any year, as a repetitive expression for instance
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAdjustLevelsToBase of hoChart to True
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to "12/24/2010"
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Send ComAddNonworkingDate of hoChart "shortdateF(value) left 5 in ('01/01','01/06','04/25','05/01','06/02','08/15','11/01','12/08','12/25','12/26')"
Send Destroy to hoChart
End_Procedure
|
|
1287
|
Is it possible to specify the Easter and a day after as being non-working
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAdjustLevelsToBase of hoChart to True
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to "4/14/2011"
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Send ComAddNonworkingDate of hoChart "not(month(value) in (3,4,5)) ? 0 : ( floor(value)=(2:=floor(date(dateS('3/1/' + year(value)) + ((1:=(((255 - 11 * (year(value) mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((year(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7)))) or (floor(value)= =:2 + 1))"
Send Destroy to hoChart
End_Procedure
|
|
1286
|
Here's a simple sample to compute the Easter day
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Year" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Set ComNumeric of hoEditor to OLEexInteger
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Easter" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComComputedField of hoColumn1 to "date(dateS('3/1/' + int(%0)) + ((1:=(((255 - 11 * (int(%0) mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((int(%0) + int(int(%0) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 2008 to Nothing
Get ComAddItem of hoItems 2009 to Nothing
Get ComAddItem of hoItems 2010 to Nothing
Get ComAddItem of hoItems 2011 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1285
|
How do I specify the Easter or holydays as non-working
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAdjustLevelsToBase of hoChart to True
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to "4/14/2011"
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Send ComAddNonworkingDate of hoChart "month(value) = 7"
Send ComAddNonworkingDate of hoChart "not(month(value) in (3,4)) ? 0 : ( floor(value)=floor(date(dateS('3/1/' + year(value)) + ((1:=(((255 - 11 * (year(value) mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((year(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))))"
Send Destroy to hoChart
End_Procedure
|
|
1284
|
Is it possible to add a repetitive expression to define non-working dates
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to "1/1/2010"
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComLevelCount of hoChart to 2
Send ComAddNonworkingDate of hoChart "1/13/2010"
Send ComAddNonworkingDate of hoChart "month(value) = 1 and (day(value) in (1,6))"
Send Destroy to hoChart
End_Procedure
|
|
1283
|
How do I get the Easter date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Easter" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "date(dateS('3/1/' + year(value)) + ((1:=(((255 - 11 * (year(value) mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((year(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/1989" to Nothing
Get ComAddItem of hoItems "1/1/2001" to Nothing
Get ComAddItem of hoItems "1/1/2002" to Nothing
Get ComAddItem of hoItems "1/1/2003" to Nothing
Get ComAddItem of hoItems "1/1/2010" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
1282
|
How can I calculate the number of visible units
// Occurs when the user presses and then releases the left mouse button over the tree control.
Procedure OnComClick
Forward Send OnComClick
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Showln "UnitCount:" (ComCountVisibleUnits(hoChart,(ComDateFromPoint(hoChart,0,-1)),(ComDateFromPoint(hoChart,1,-1))))
Send Destroy to hoChart
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 0
Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
End_Procedure
|
|
1281
|
Is it possible to specify the nonworking up to minutes and I can see when using the inside zoom feature
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Set ComDrawGridLines to OLEexHLines
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComDrawGridLines of hoChart1 to OLEexAllLines
Set ComPaneWidth of hoChart1 False to 128
Set ComLevelCount of hoChart1 to 3
Set ComUnitScale of hoChart1 to OLEexHour
Set ComUnitWidth of hoChart1 to 16
Set ComDrawLevelSeparator of hoChart1 to False
Variant voLevel
Get ComLevel of hoChart1 2 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComUnit of hoLevel to OLEexMinute
Set ComCount of hoLevel to 60
Send Destroy to hoLevel
Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
Set ComResizeUnitScale of hoChart1 to OLEexMinute
Set ComResizeUnitCount of hoChart1 to 15
Set ComAllowInsideZoom of hoChart1 to True
Variant voInsideZoomFormat
Get ComDefaultInsideZoomFormat of hoChart1 to voInsideZoomFormat
Handle hoInsideZoomFormat
Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
Set ComInsideUnit of hoInsideZoomFormat to OLEexMinute
Set ComInsideCount of hoInsideZoomFormat to 15
Set ComInsideLabel of hoInsideZoomFormat to "<%nn%>"
Set ComOwnerLabel of hoInsideZoomFormat to "Hour: <b><%h%>"
Set ComDrawGridLines of hoInsideZoomFormat to True
Send Destroy to hoInsideZoomFormat
Variant voInsideZooms
Get ComInsideZooms of hoChart1 to voInsideZooms
Handle hoInsideZooms
Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
Set pvComObject of hoInsideZooms to voInsideZooms
Get ComAdd of hoInsideZooms "1/1/2010 12:00:00 PM" to Nothing
Send Destroy to hoInsideZooms
Variant voInsideZooms1
Get ComInsideZooms of hoChart1 to voInsideZooms1
Handle hoInsideZooms1
Get Create (RefClass(cComInsideZooms)) to hoInsideZooms1
Set pvComObject of hoInsideZooms1 to voInsideZooms1
Get ComAdd of hoInsideZooms1 "1/1/2010 1:00:00 PM" to Nothing
Send Destroy to hoInsideZooms1
Set ComFirstVisibleDate of hoChart1 to "1/1/2010 9:00:00 AM"
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Non-Working" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellSingleLine to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "12:30 to 14:00 Monday to Thursday, 12:30 to 13:30 on Friday" to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="12:30:00" and timeF(value) <="14:00:00" ));5:( timeF(value)>="12:30:00" and timeF(value) <="13:30:00" );6:1;0:1) "
Get ComAddItem of hoItems "10:45 to 13:45 Monday to Thursday, 10:45 to 14:30 on Friday" to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="10:45:00" and timeF(value) <="13:45:00" ));5:( timeF(value)>="10:45:00" and timeF(value) <="14:30:00" );6:1;0:1) "
Get ComAddItem of hoItems "2:30 to 9:30 on Friday, Saturday and Sunday" to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="02:30:00" and timeF(value) <="09:30:00" ));1:0;2:0;3:0;4:0) "
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1280
|
Is it possible to show the non-working units up to minutes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Set ComDrawGridLines to OLEexHLines
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComDrawGridLines of hoChart1 to OLEexHLines
Set ComPaneWidth of hoChart1 False to 128
Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
Set ComLevelCount of hoChart1 to 2
Set ComUnitScale of hoChart1 to OLEexHour
Set ComUnitWidth of hoChart1 to 16
Set ComDrawLevelSeparator of hoChart1 to False
Variant voLevel
Get ComLevel of hoChart1 1 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComUnit of hoLevel to OLEexMinute
Set ComCount of hoLevel to 60
Send Destroy to hoLevel
Set ComAllowCreateBar of hoChart1 to OLEexCreateBarAuto
Set ComResizeUnitScale of hoChart1 to OLEexMinute
Set ComResizeUnitCount of hoChart1 to 15
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Non-Working" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellSingleLine to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "12:30 to 14:00 Monday to Thursday, 12:30 to 13:30 on Friday" to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="12:30:00" and timeF(value) <="14:00:00" ));5:( timeF(value)>="12:30:00" and timeF(value) <="13:30:00" );6:1;0:1) "
Get ComAddItem of hoItems "10:45 to 13:45 Monday to Thursday, 10:45 to 14:30 on Friday" to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="10:45:00" and timeF(value) <="13:45:00" ));5:( timeF(value)>="10:45:00" and timeF(value) <="14:30:00" );6:1;0:1) "
Get ComAddItem of hoItems "2:30 to 9:30 on Friday, Saturday and Sunday" to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) case (default:((timeF(value)>="02:30:00" and timeF(value) <="09:30:00" ));1:0;2:0;3:0;4:0) "
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1279
|
Is it possible to define several type of progress bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Progress" "ProgressT" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Set ComShape of hoBar to OLEexShapeSolid
Set ComHeight of hoBar to 7
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComAdd of hoBars1 "Task%ProgressT:Split" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComShortcut of hoBar1 to "Task"
Send Destroy to hoBar1
Send Destroy to hoBars1
Variant voBars2
Get ComBars of hoChart to voBars2
Handle hoBars2
Get Create (RefClass(cComBars)) to hoBars2
Set pvComObject of hoBars2 to voBars2
Variant voBar2
Get ComItem of hoBars2 "Progress" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Set ComColor of hoBar2 to (RGB(0,0,255))
Set ComShape of hoBar2 to OLEexShapeSolidUp
Send Destroy to hoBar2
Send Destroy to hoBars2
Variant voBars3
Get ComBars of hoChart to voBars3
Handle hoBars3
Get Create (RefClass(cComBars)) to hoBars3
Set pvComObject of hoBars3 to voBars3
Variant voBar3
Get ComAdd of hoBars3 "Summary%Progress" to voBar3
Handle hoBar3
Get Create (RefClass(cComBar)) to hoBar3
Set pvComObject of hoBar3 to voBar3
Set ComShortcut of hoBar3 to "Summary"
Send Destroy to hoBar3
Send Destroy to hoBars3
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project" to h
Set ComItemHeight of hoItems h to 16
Set ComCellValue of hoItems h 1 to "9/21/2006"
Set ComCellValue of hoItems h 2 to "10/3/2006"
Send ComAddBar of hoItems h "Summary" (ComCellValue(hoItems,h,1)) (ComCellValue(hoItems,h,2)) "sum" Nothing
Set ComItemBar of hoItems h "sum" OLEexBarPercent to 0.4
Set ComItemBar of hoItems h "sum" OLEexBarShowPercentCaption to true
Variant h1
Get ComInsertItem of hoItems h "Task 1" to h1
Set ComCellValue of hoItems h1 1 to (ComCellValue(hoItems,h,1))
Set ComCellValue of hoItems h1 2 to "9/27/2006"
Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) "K1" Nothing
Set ComItemBar of hoItems h1 "K1" OLEexBarPercent to 0.6
Set ComItemBar of hoItems h1 "K1" OLEexBarShowPercentCaption to true
Variant h2
Get ComInsertItem of hoItems h "Task 2" to h2
Set ComCellValue of hoItems h2 1 to (ComCellValue(hoItems,h1,2))
Set ComCellValue of hoItems h2 2 to "9/28/2006"
Send ComAddBar of hoItems h2 "Unknown" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Variant h3
Get ComInsertItem of hoItems h "Task 3" to h3
Set ComCellValue of hoItems h3 1 to (ComCellValue(hoItems,h2,2))
Set ComCellValue of hoItems h3 2 to (ComCellValue(hoItems,h,2))
Send ComAddBar of hoItems h3 "Task" (ComCellValue(hoItems,h3,1)) (ComCellValue(hoItems,h3,2)) "K3" Nothing
Set ComItemBar of hoItems h3 "K3" OLEexBarPercent to 0.65
Set ComItemBar of hoItems h3 "K3" OLEexBarShowPercentCaption to true
Set ComItemBar of hoItems h3 "K3" OLEexBarPercentColor to 32768
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Send ComGroupBars of hoItems h1 "K1" False h2 "K2" True 31 "0;4"
Send ComGroupBars of hoItems h2 "K2" False h3 "K3" True 31 "0;2"
Send ComDefineSummaryBars of hoItems h "sum" h1 "K1"
Send ComDefineSummaryBars of hoItems h "sum" h2 "K2"
Send ComDefineSummaryBars of hoItems h "sum" h3 "K3"
Set ComExpandItem of hoItems h to True
Set ComItemBold of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1278
|
Is it possible to display the percent bar over the summary bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Progress" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(0,0,255))
Set ComShape of hoBar to OLEexShapeSolidUp
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComAdd of hoBars1 "Summary%Progress" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComShortcut of hoBar1 to "SummaryP"
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Summary" to h
Send ComAddBar of hoItems h "SummaryP" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.4
Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to true
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1277
|
How can I display the percent value in the lower side of the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Progress" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShape of hoBar to OLEexShapeSolid
Set ComHeight of hoBar to 7
Set ComColor of hoBar to (RGB(0,0,255))
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComAdd of hoBars1 "Task%Progress" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComShortcut of hoBar1 to "Percent"
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Percent" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.5
Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
Set ComItemBar of hoItems h "K1" OLEexBarVAlignPercent to 2
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Percent" "1/3/2001" "1/9/2001" "K2" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1276
|
Is it possible to change the percent's height
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Progress" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShape of hoBar to OLEexShapeSolid
Set ComHeight of hoBar to 7
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Get ComAdd of hoBars1 "Task%Progress" to Nothing
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task%Progress" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.5
Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1275
|
How can I change the pattern for the percent bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Progress" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternBDiagonal
Set ComShape of hoBar to OLEexShapeSolid
Set ComColor of hoBar to (RGB(196,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Get ComAdd of hoBars1 "Task%Progress" to Nothing
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task%Progress" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.4
Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1274
|
How can I change the look for the percent bar using EBN
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\hot.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Progress" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$1000000
Set ComShape of hoBar to OLEexShapeSolid
Set ComHeight of hoBar to 7
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Get ComAdd of hoBars1 "Task%Progress" to Nothing
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task%Progress" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.4
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1273
|
Is it possible to align the percent bar to the bottom of the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 32
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHeight of hoBar to 28
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComAdd of hoBars1 "Task%Progress" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComShortcut of hoBar1 to "Percent"
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Percent" "1/2/2001" "1/14/2001" "K1" "text inside"
Set ComItemBar of hoItems h "K1" OLEexBarVAlignCaption to 0
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.75
Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
Set ComItemBar of hoItems h "K1" OLEexBarPercentCaptionFormat to "%p%"
Set ComItemBar of hoItems h "K1" OLEexBarVAlignPercent to 2
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1272
|
Is it possible to show the percent on the bottom side of the bar, so I can leave the text upside
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 32
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHeight of hoBar to 28
Send Destroy to hoBar
Variant voBar1
Get ComItem of hoBars "Progress" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComShape of hoBar1 to OLEexShapeThinDown
Set ComHeight of hoBar1 to 20
Set ComColor of hoBar1 to (RGB(0,0,255))
Send Destroy to hoBar1
Variant voBar2
Get ComAdd of hoBars "Task%Progress" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Set ComShortcut of hoBar2 to "Percent"
Send Destroy to hoBar2
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Percent" "1/2/2001" "1/14/2001" "K1" "text inside"
Set ComItemBar of hoItems h "K1" OLEexBarVAlignCaption to 0
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 0.75
Set ComItemBar of hoItems h "K1" OLEexBarShowPercentCaption to True
Set ComItemBar of hoItems h "K1" OLEexBarPercentCaptionFormat to "<br>%p%"
Set ComItemBar of hoItems h "K1" OLEexBarAlignPercentCaption to 1
Set ComItemBar of hoItems h "K1" OLEexBarCanResizePercent to False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1271
|
Is it possible to assign a multiple lines labels/captions to a bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Set ComItemHeight of hoItems h to 32
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarCaption to "Line1<br>Line2"
Send Destroy to hoItems
End_Procedure
|
|
1270
|
Does your control supports multiple lines tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComToolTipDelay to 1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "<font Tahoma;20>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><img>pic1</img> picture ..."
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
1269
|
It is possible to write the word in red/color or to add a tooltip or a link to the word
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/26/2000"
Set ComPaneWidth of hoChart False to 32
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "" "1/1/2001" "1/5/2001" "K1" "some <fgcolor=FF0000>red</fgcolor> text"
Set ComItemBar of hoItems h1 "K1" OLEexBarCanResize to False
Set ComItemBar of hoItems h1 "K1" OLEexBarToolTip to "And here goes the <b>tooltip</b> of the text. "
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Set ComItemBar of hoItems h2 "K2" OLEexBarToolTip to "And here goes the <b>tooltip</b> of the bar. "
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Set ComLink of hoItems "L1" OLEexLinkText to "L<b>inke</b>d to a bar"
Set ComLink of hoItems "L1" OLEexLinkToolTip to "And here goes the <b>tooltip</b> of the link. "
Send Destroy to hoItems
End_Procedure
|
|
1268
|
It is possible to use seconds/minutes/hours as time scale in your control, but using my regional settings
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLabel of hoChart OLEexMonth to "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256"
Set ComLabel of hoChart OLEexDay to "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
Set ComLabel of hoChart OLEexHour to "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
Set ComLabel of hoChart OLEexMinute to "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
Set ComLabel of hoChart OLEexSecond to "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexMonth to "<%loc_mmmm%>/<%yyyy%>"
Set ComLabelToolTip of hoChart OLEexWeek to "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
Set ComLabelToolTip of hoChart OLEexDay to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
Set ComLabelToolTip of hoChart OLEexHour to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexMinute to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexSecond to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 0
Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
Set ComLevelCount of hoChart1 to 4
Variant voLevel
Get ComLevel of hoChart1 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 4096
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart1 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to 65536
Send Destroy to hoLevel1
Variant voLevel2
Get ComLevel of hoChart1 2 to voLevel2
Handle hoLevel2
Get Create (RefClass(cComLevel)) to hoLevel2
Set pvComObject of hoLevel2 to voLevel2
Set ComLabel of hoLevel2 to 1048576
Send Destroy to hoLevel2
Variant voLevel3
Get ComLevel of hoChart1 3 to voLevel3
Handle hoLevel3
Get Create (RefClass(cComLevel)) to hoLevel3
Set pvComObject of hoLevel3 to voLevel3
Set ComCount of hoLevel3 to 15
Set ComLabel of hoLevel3 to 16777216
Send Destroy to hoLevel3
Send Destroy to hoChart1
Send ComEndUpdate
End_Procedure
|
|
1267
|
The chart's header is displayed in English. Can I change so it is the same as in my regional settings
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLabel of hoChart OLEexMonth to "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256"
Set ComLabel of hoChart OLEexDay to "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
Set ComLabel of hoChart OLEexHour to "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
Set ComLabel of hoChart OLEexMinute to "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
Set ComLabel of hoChart OLEexSecond to "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexMonth to "<%loc_mmmm%>/<%yyyy%>"
Set ComLabelToolTip of hoChart OLEexWeek to "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
Set ComLabelToolTip of hoChart OLEexDay to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
Set ComLabelToolTip of hoChart OLEexHour to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexMinute to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexSecond to "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 0
Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
Set ComLevelCount of hoChart1 to 2
Set ComUnitScale of hoChart1 to OLEexDay
Send Destroy to hoChart1
Send ComEndUpdate
End_Procedure
|
|
1266
|
It is possible to use seconds/minutes/hours as time scale in your control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 4
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 4096
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to 65536
Send Destroy to hoLevel1
Variant voLevel2
Get ComLevel of hoChart 2 to voLevel2
Handle hoLevel2
Get Create (RefClass(cComLevel)) to hoLevel2
Set pvComObject of hoLevel2 to voLevel2
Set ComLabel of hoLevel2 to 1048576
Send Destroy to hoLevel2
Variant voLevel3
Get ComLevel of hoChart 3 to voLevel3
Handle hoLevel3
Get Create (RefClass(cComLevel)) to hoLevel3
Set pvComObject of hoLevel3 to voLevel3
Set ComCount of hoLevel3 to 15
Set ComLabel of hoLevel3 to 16777216
Send Destroy to hoLevel3
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1265
|
Is it possible to resize chart's column/level using the mouse as we can for the columns, but do not want to resize up to hours
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 32
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2008"
Set ComAllowInsideZoom of hoChart to True
Set ComAllowResizeInsideZoom of hoChart to True
Set ComInsideZoomOnDblClick of hoChart to False
Variant voInsideZoomFormat
Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
Handle hoInsideZoomFormat
Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
Set ComOwnerLabel of hoInsideZoomFormat to "<%d%>"
Set ComInsideLabel of hoInsideZoomFormat to ""
Set ComInsideUnit of hoInsideZoomFormat to OLEexHour
Set ComInsideCount of hoInsideZoomFormat to 24
Set ComDrawTickLines of hoInsideZoomFormat to False
Set ComDrawGridLines of hoInsideZoomFormat to False
Send Destroy to hoInsideZoomFormat
Variant voInsideZooms
Get ComInsideZooms of hoChart to voInsideZooms
Handle hoInsideZooms
Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
Set pvComObject of hoInsideZooms to voInsideZooms
Set ComSplitBaseLevel of hoInsideZooms to False
Set ComDefaultWidth of hoInsideZooms to 18
Send Destroy to hoInsideZooms
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "1/3/2008" "1/8/2008" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1264
|
Is it possible to resize chart's column/level using the mouse as we can for the columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 32
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2008"
Set ComAllowInsideZoom of hoChart to True
Set ComAllowResizeInsideZoom of hoChart to True
Set ComInsideZoomOnDblClick of hoChart to False
Variant voInsideZoomFormat
Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
Handle hoInsideZoomFormat
Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
Set ComOwnerLabel of hoInsideZoomFormat to "<%d%>"
Set ComInsideLabel of hoInsideZoomFormat to ""
Set ComDrawTickLines of hoInsideZoomFormat to False
Set ComDrawGridLines of hoInsideZoomFormat to False
Send Destroy to hoInsideZoomFormat
Variant voInsideZooms
Get ComInsideZooms of hoChart to voInsideZooms
Handle hoInsideZooms
Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
Set pvComObject of hoInsideZooms to voInsideZooms
Set ComSplitBaseLevel of hoInsideZooms to False
Set ComDefaultWidth of hoInsideZooms to 18
Send Destroy to hoInsideZooms
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "1/3/2008" "1/8/2008" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1263
|
How can I empty or clear the undo/redo queue
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowUndoRedo of hoChart to True
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComAllowLinkBars of hoChart to True
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/21/2005" "6/25/2005" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "6/28/2005" "7/2/2005" "" Nothing
Variant v
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Get ComUndoListAction of hoChart1 Nothing Nothing to v
Send Destroy to hoChart1
Showln v
Showln "Clear undo/redo queue"
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComAllowUndoRedo of hoChart2 to False
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComAllowUndoRedo of hoChart3 to True
Send Destroy to hoChart3
Variant v1
Variant voChart4
Get ComChart to voChart4
Handle hoChart4
Get Create (RefClass(cComChart)) to hoChart4
Set pvComObject of hoChart4 to voChart4
Get ComUndoListAction of hoChart4 Nothing Nothing to v1
Send Destroy to hoChart4
Showln v1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1262
|
How can I remove the undo/redo queue
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowUndoRedo of hoChart to True
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComAllowLinkBars of hoChart to True
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "6/21/2005" "6/25/2005" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "6/28/2005" "7/2/2005" "" Nothing
Variant v
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Get ComUndoListAction of hoChart1 Nothing Nothing to v
Send Destroy to hoChart1
Showln v
Showln "Clear undo/redo queue"
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Send ComUndoRemoveAction of hoChart2 Nothing Nothing
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Send ComRedoRemoveAction of hoChart3 Nothing Nothing
Send Destroy to hoChart3
Variant v1
Variant voChart4
Get ComChart to voChart4
Handle hoChart4
Get Create (RefClass(cComChart)) to hoChart4
Set pvComObject of hoChart4 to voChart4
Get ComUndoListAction of hoChart4 Nothing Nothing to v1
Send Destroy to hoChart4
Showln v1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1261
|
Is it possible to prevent adding an undo operation for instance the RemoveLink(LinkKey) I call during the AddLink event
// Occurs when the user links two bars using the mouse.
Procedure OnComAddLink String llLinkKey
Forward Send OnComAddLink llLinkKey
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComRemoveLink of hoItems llLinkKey
Send Destroy to hoItems
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Send ComUndoRemoveAction of hoChart 10 1
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Send ComUndoRemoveAction of hoChart1 11 1
Send Destroy to hoChart1
Variant v
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Get ComUndoListAction of hoChart2 Nothing Nothing to v
Send Destroy to hoChart2
Showln v
End_Procedure
// Occurs after the chart has been changed.
Procedure OnComChartEndChanging OLEBarOperationEnum llOperation
Forward Send OnComChartEndChanging llOperation
Variant v1
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Get ComUndoListAction of hoChart3 Nothing Nothing to v1
Send Destroy to hoChart3
Showln v1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart4
Get ComChart to voChart4
Handle hoChart4
Get Create (RefClass(cComChart)) to hoChart4
Set pvComObject of hoChart4 to voChart4
Set ComAllowUndoRedo of hoChart4 to True
Set ComFirstVisibleDate of hoChart4 to "6/20/2005"
Set ComAllowLinkBars of hoChart4 to True
Set ComLevelCount of hoChart4 to 2
Set ComPaneWidth of hoChart4 False to 48
Send Destroy to hoChart4
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "6/21/2005" "6/25/2005" "" Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "6/28/2005" "7/2/2005" "" Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1260
|
Is it possible to rename the links from "Link1" to my choice
// Occurs when the user links two bars using the mouse.
Procedure OnComAddLink String llLinkKey
Forward Send OnComAddLink llLinkKey
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLink of hoItems llLinkKey OLEexLinkKey to "newIDlink"
Send Destroy to hoItems
End_Procedure
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComLinkFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "6/20/2005"
Set ComAllowLinkBars of hoChart1 to True
Set ComLevelCount of hoChart1 to 2
Set ComPaneWidth of hoChart1 False to 48
Send Destroy to hoChart1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 1")) "Task" "6/21/2005" "6/25/2005" "" Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task 2")) "Task" "6/28/2005" "7/2/2005" "" Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1259
|
How can I prevent highlighting the column from the cursor - point
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexCursorHoverColumn to |CI$1000000
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "S" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Level 1" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComLevelKey of hoColumn1 to 1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Level 2" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComLevelKey of hoColumn2 to 1
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Level 3" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComLevelKey of hoColumn3 to 1
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "E1" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComWidth of hoColumn4 to 32
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComAdd of hoColumns5 "E2" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComWidth of hoColumn5 to 32
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComAdd of hoColumns6 "E3" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComWidth of hoColumn6 to 32
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Variant voColumns7
Get ComColumns to voColumns7
Handle hoColumns7
Get Create (RefClass(cComColumns)) to hoColumns7
Set pvComObject of hoColumns7 to voColumns7
Variant voColumn7
Get ComAdd of hoColumns7 "E4" to voColumn7
Handle hoColumn7
Get Create (RefClass(cComColumn)) to hoColumn7
Set pvComObject of hoColumn7 to voColumn7
Set ComWidth of hoColumn7 to 32
Send Destroy to hoColumn7
Send Destroy to hoColumns7
End_Procedure
|
|
1258
|
Is it possible to specify the background color for the item in the chart part only
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Variant hC
Get ComInsertItem of hoItems h "Child 1" to hC
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComItemBackColor of hoChart hC to (RGB(255,0,0))
Send Destroy to hoChart
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
1257
|
Is it possible to apply different visual appearance, color, sizes for item in the list and chart part
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Variant voAppearance2
Get ComVisualAppearance to voAppearance2
Handle hoAppearance2
Get Create (RefClass(cComAppearance)) to hoAppearance2
Set pvComObject of hoAppearance2 to voAppearance2
Get ComAdd of hoAppearance2 3 "CP:2 2 2 -2 -2" to Nothing
Send Destroy to hoAppearance2
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Set ComSelBackMode to OLEexTransparent
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Variant hC
Get ComInsertItem of hoItems h "Child 1" to hC
Set ComItemBackColor of hoItems hC to |CI$1ffff00
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComItemBackColor of hoChart hC to |CI$300ff00
Send Destroy to hoChart
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
1256
|
How do I change the visual appearance for the entire item, using your EBN technology
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Variant hC
Get ComInsertItem of hoItems h "Child 1" to hC
Set ComItemBackColor of hoItems hC to |CI$1000000
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComItemBackColor of hoChart hC to |CI$1000000
Send Destroy to hoChart
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
1255
|
is it possible to specify the a different background color for the item, list and chart part
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Variant hC
Get ComInsertItem of hoItems h "Child 1" to hC
Set ComItemBackColor of hoItems hC to (RGB(255,0,0))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComItemBackColor of hoChart hC to (RGB(255,255,0))
Send Destroy to hoChart
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
1254
|
Is it possible to specify the background color for the entire row, including the chart part
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Variant hC
Get ComInsertItem of hoItems h "Child 1" to hC
Set ComItemBackColor of hoItems hC to (RGB(255,0,0))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComItemBackColor of hoChart hC to (RGB(255,0,0))
Send Destroy to hoChart
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
1253
|
Is it possible to prevent overlaying the bars while moving or resizing the bars, so they get arranged once the bar is moved or resized
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComDrawGridLines to OLEexHLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComOverlaidOnMoving of hoChart to False
Set ComDrawGridLines of hoChart to OLEexHLines
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComAllowLinkBars of hoChart to False
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A3" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1252
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default positive)'"
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '2|.|3|,|1|1')"
Get ComAddItem of hoItems -100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default negative)'"
Get ComAddItem of hoItems -100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '2|.|3|,|1|1')"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1251
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 0.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems 0.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1250
|
How can I specify the format for negative numbers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems -100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems -100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '||||1') + ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1249
|
Is it possible to change the grouping character when display numbers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1248
|
How can I display numbers with 2 digits in each group
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems 100000.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '||2') + ' <fgcolor=808080>(grouping by 2 digits)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1247
|
How can I display my numbers using a different decimal separator
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '|;') + ' <fgcolor=808080>(decimal separator is <b>;</b>)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1246
|
Is it possible to display the numbers using 3 (three) digits
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Def" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '') + ' <fgcolor=808080>(default)'"
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format '3') + ' <fgcolor=808080>(3 digits)'"
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format 2) + ' <fgcolor=808080>(2 digits)'"
Get ComAddItem of hoItems 100.27 to h
Set ComFormatCell of hoItems h 0 to "(value format 1) + ' <fgcolor=808080>(1 digit)'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1245
|
Is it possible to format numbers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Set ComSelBackColor to (ComBackColor(Self))
Set ComSelForeColor to (ComForeColor(Self))
Set ComShowFocusRect to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Variant voColumn
Get ComAdd of hoColumns "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 36
Set ComFormatColumn of hoColumn to "len(value) ? value + ' +'"
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortType of hoColumn1 to OLESortNumeric
Set ComAllowSizing of hoColumn1 to False
Set ComWidth of hoColumn1 to 36
Set ComFormatColumn of hoColumn1 to "len(value) ? value + ' +'"
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "C" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortType of hoColumn2 to OLESortNumeric
Set ComAllowSizing of hoColumn2 to False
Set ComWidth of hoColumn2 to 36
Set ComFormatColumn of hoColumn2 to "len(value) ? value + ' ='"
Variant voEditor2
Get ComEditor of hoColumn2 to voEditor2
Handle hoEditor2
Get Create (RefClass(cComEditor)) to hoEditor2
Set pvComObject of hoEditor2 to voEditor2
Set ComEditType of hoEditor2 to OLESpinType
Send Destroy to hoEditor2
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns "A+B+C" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComSortType of hoColumn3 to OLESortNumeric
Set ComWidth of hoColumn3 to 64
Set ComComputedField of hoColumn3 to "dbl(%1)+dbl(%2)+dbl(%3)"
Set ComFormatColumn of hoColumn3 to "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
Set ComDef of hoColumn3 OLEexCellValueFormat to 1
Send Destroy to hoColumn3
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Set ComCellValueFormat of hoItems h 4 to OLEexComputedField
Variant h1
Get ComInsertItem of hoItems h "Child 1" to h1
Set ComCellValue of hoItems h1 1 to 7
Set ComCellValue of hoItems h1 2 to 3
Set ComCellValue of hoItems h1 3 to 1
Get ComInsertItem of hoItems h "Child 2" to h1
Set ComCellValue of hoItems h1 1 to -2
Set ComCellValue of hoItems h1 2 to -2
Set ComCellValue of hoItems h1 3 to -4
Get ComInsertItem of hoItems h "Child 3" to h1
Set ComCellValue of hoItems h1 1 to 2
Set ComCellValue of hoItems h1 2 to 2
Set ComCellValue of hoItems h1 3 to -4
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1244
|
How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant vToolTip
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComBarFromPoint of hoChart -1 -1 to vToolTip
Send Destroy to hoChart
Send ComShowToolTip vToolTip "" 2 "4" "-4"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Def" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComAllowCreateBar of hoChart1 to OLEexNoCreateBar
Set ComPaneWidth of hoChart1 False to 64
Set ComLevelCount of hoChart1 to 2
Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2010" "1/5/2010" "A" "A"
Send ComAddBar of hoItems h "Task" "1/5/2010" "1/8/2010" "B" "B"
Send ComAddBar of hoItems h "Task" "1/8/2010" "1/11/2010" "C" "C"
Send ComGroupBars of hoItems h "A" False h "B" True 39 Nothing
Send ComGroupBars of hoItems h "B" False h "C" True 39 Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1243
|
How can I set the column's width to my desired width
Procedure OnCreate
Forward Send OnCreate
Set ComColumnAutoResize to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 128
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 128
Send Destroy to hoColumn1
Send Destroy to hoColumns
Set ComDrawGridLines to OLEexAllLines
End_Procedure
|
|
1242
|
Is it possible to prevent intersection of three bars or more
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Def" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComPaneWidth of hoChart False to 64
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2010"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2010" "1/5/2010" "A" "A"
Send ComAddBar of hoItems h "Task" "1/5/2010" "1/8/2010" "B" "B"
Send ComAddBar of hoItems h "Task" "1/8/2010" "1/11/2010" "C" "C"
Send ComGroupBars of hoItems h "A" False h "B" True 39 Nothing
Send ComGroupBars of hoItems h "B" False h "C" True 39 Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1241
|
Is it possible to prevent intersection of two bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Def" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComPaneWidth of hoChart False to 64
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2010"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2010" "1/5/2010" "A" "A"
Send ComAddBar of hoItems h "Task" "1/5/2010" "1/8/2010" "B" "B"
Send ComGroupBars of hoItems h "A" False h "B" True 39 Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1240
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Value" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "FormatCell" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 1 to h
Set ComCellValue of hoItems h 1 to 12
Set ComFormatCell of hoItems h 1 to "currency(value)"
Get ComAddItem of hoItems "1/1/2001" to h
Set ComCellValue of hoItems h 1 to "1/1/2001"
Set ComCellValueFormat of hoItems h 1 to OLEexHTML
Set ComFormatCell of hoItems h 1 to "longdate(value) replace '2001' with '<b>2001</b>'"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1239
|
How can I simulate displaying groups
Procedure OnCreate
Forward Send OnCreate
Set ComHasLines to OLEexNoLine
Set ComScrollBySingleLine to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Get ComAdd of hoColumns "A" to Nothing
Get ComAdd of hoColumns "B" to Nothing
Get ComAdd of hoColumns "C" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Group 1" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Variant h1
Get ComInsertItem of hoItems h "Child 1" to h1
Set ComCellValue of hoItems h1 1 to 1
Set ComCellValue of hoItems h1 2 to 2
Set ComCellValue of hoItems h1 3 to 3
Get ComInsertItem of hoItems h "Child 2" to h1
Set ComCellValue of hoItems h1 1 to 4
Set ComCellValue of hoItems h1 2 to 5
Set ComCellValue of hoItems h1 3 to 6
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Group 2" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLineAlignment of hoItems h to OLEDividerBoth
Set ComItemHeight of hoItems h to 24
Set ComSortableItem of hoItems h to False
Get ComInsertItem of hoItems h "Child 1" to h1
Set ComCellValue of hoItems h1 1 to 1
Set ComCellValue of hoItems h1 2 to 2
Set ComCellValue of hoItems h1 3 to 3
Get ComInsertItem of hoItems h "Child 2" to h1
Set ComCellValue of hoItems h1 1 to 4
Set ComCellValue of hoItems h1 2 to 5
Set ComCellValue of hoItems h1 3 to 6
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
1238
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Values" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 64
Set ComFormatColumn of hoColumn to "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Set ComFormatCell of hoItems h 1 to "'<none>'"
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 10
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 15
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 25
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1237
|
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Values" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 64
Set ComFormatColumn of hoColumn to "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Set ComFormatCell of hoItems h 1 to " "
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to 10
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to 15
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 3")) 1 to 25
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1236
|
I have a right-aligned column with check-boxes with no text, but it is not perfectly aligned. Is there something I can do
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComTreeColumnIndex to -1
Set ComDrawGridLines to OLEexAllLines
Set ComShowFocusRect to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default-Right" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComAlignment of hoColumn to OLERightAlignment
Set ComHeaderAlignment of hoColumn to OLERightAlignment
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Custom-Right" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellHasCheckBox to True
Set ComDef of hoColumn1 OLEexCellDrawPartsOrder to "icon,icons,picture,caption,check"
Set ComHeaderAlignment of hoColumn1 to OLERightAlignment
Set ComAlignment of hoColumn1 to OLERightAlignment
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems Nothing to Nothing
Get ComAddItem of hoItems Nothing to Nothing
Get ComAddItem of hoItems Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1235
|
How can I specify that once I move or resize a bar other should be automatically moved/resized
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Set ComCellValue of hoItems h1 1 to "9/21/2006"
Set ComCellValue of hoItems h1 2 to "9/24/2006"
Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) "" Nothing
Variant h2
Get ComAddItem of hoItems "Item 2" to h2
Set ComCellValue of hoItems h2 1 to "9/21/2006"
Set ComCellValue of hoItems h2 2 to "9/24/2006"
Send ComAddBar of hoItems h2 "Task" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) "" Nothing
Send ComGroupBars of hoItems h1 "" True h2 "" True Nothing Nothing
Send ComGroupBars of hoItems h1 "" False h2 "" False Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1234
|
How can I specify that once I move a bar other should be automatically moved
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Set ComCellValue of hoItems h1 1 to "9/21/2006"
Set ComCellValue of hoItems h1 2 to "9/24/2006"
Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) "" Nothing
Variant h2
Get ComAddItem of hoItems "Item 2" to h2
Set ComCellValue of hoItems h2 1 to "9/21/2006"
Set ComCellValue of hoItems h2 2 to "9/24/2006"
Send ComAddBar of hoItems h2 "Task" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) "" Nothing
Send ComGroupBars of hoItems h1 "" True h2 "" True 3 Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1233
|
Is it possible to include the bar's caption in overlaying
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComDrawGridLines to OLEexHLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexHLines
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComAllowLinkBars of hoChart to False
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar to "Milestone"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" "task"
Set ComItemBar of hoItems h "A1" OLEexBarHAlignCaption to 18
Send ComAddBar of hoItems h "Milestone" "1/3/2001" "1/3/2001" "M" "milestone"
Set ComItemBar of hoItems h "M" OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" "A1" "task"
Set ComItemBar of hoItems h "A1" OLEexBarHAlignCaption to 18
Send ComAddBar of hoItems h "Milestone" "1/8/2001" "1/8/2001" "M" "milestone"
Set ComItemBar of hoItems h "M" OLEexBarHAlignCaption to 18
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1232
|
Sometimes, the milestone bars are not overlaying the task bars. What I am doing wrong
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComDrawGridLines to OLEexHLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexHLines
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComAllowLinkBars of hoChart to False
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar to "Milestone"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h "Milestone" "1/3/2001" "1/3/2001" "M" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
Send ComAddBar of hoItems h "Milestone" "1/8/2001" "1/8/2001" "M" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1231
|
Is it possible to add milestone bars in the same overlaid group as task is
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComDrawGridLines to OLEexHLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexHLines
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComAllowLinkBars of hoChart to False
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar to "Milestone"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h "Milestone" "1/3/2001" "1/3/2001" "M" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "A1" Nothing
Send ComAddBar of hoItems h "Milestone" "1/8/2001" "1/8/2001" "M" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1230
|
When adding a date column and setting the SortType to SortTypeEnum.SortDateTime, the column still sorts as a string. What am I doing wrong
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortDateTime
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "String" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "1/1/2001" to h
Set ComCellValue of hoItems h 1 to (ComCellValue(hoItems,h,0))
Get ComAddItem of hoItems "1/11/2001" to h
Set ComCellValue of hoItems h 1 to (ComCellValue(hoItems,h,0))
Get ComAddItem of hoItems "1/2/2001" to h
Set ComCellValue of hoItems h 1 to (ComCellValue(hoItems,h,0))
Send Destroy to hoItems
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComItem of hoColumns2 0 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortOrder of hoColumn1 to OLESortDescending
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Send ComEndUpdate
End_Procedure
|
|
1229
|
Is it possible to move an item from a parent to another
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "A" to Nothing
Get ComAddItem of hoItems "B" to Nothing
Get ComInsertItem of hoItems (ComAddItem(hoItems,"C")) "" "D" to Nothing
Send ComSetParent of hoItems (ComFindItem(hoItems,"D",0,Nothing)) (ComFindItem(hoItems,"A",0,Nothing))
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1228
|
How can I change the identation for an item
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "A" to Nothing
Get ComAddItem of hoItems "B" to Nothing
Get ComInsertItem of hoItems (ComAddItem(hoItems,"C")) "" "D" to Nothing
Send ComSetParent of hoItems (ComFindItem(hoItems,"D",0,Nothing)) 0
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1227
|
Moving the bars fail if I am using GroupBars, exBarCanResize on 0 and exBarKeepWorkingCount on True ( bars keeps the working units and at runtime user can not resize them ). Is it possible to use the GroupBars while user should not be able to resize the bars at runtime
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
Set ComItemBar of hoItems h1 "" OLEexBarKeepWorkingCount to True
Set ComItemBar of hoItems h1 "" OLEexBarCanResize to 4
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
Set ComItemBar of hoItems h2 "" OLEexBarKeepWorkingCount to True
Set ComItemBar of hoItems h2 "" OLEexBarCanResize to 4
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval<br>exLimitInterval + exLimitIntervalTreatAsWorking"
Send ComGroupBars of hoItems h1 "" False h2 "" True 95 "2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1226
|
How can I collapse all items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems 0 to False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1225
|
How can I expand all items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1224
|
How can I specify the distance between bars to be in a specified range of working units
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval<br>exLimitInterval+exLimitIntervalTreatAsWorking"
Send ComGroupBars of hoItems h1 "" False h2 "" True 95 "0;1;5"
Set ComItemBar of hoItems 0 "<*>" OLEexBarKeepWorkingCount to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1223
|
How can I specify the distance between bars to be in a specified range
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval + exLimitInterval"
Send ComGroupBars of hoItems h1 "" False h2 "" True 31 "0;1;7"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1222
|
How can I specify the distance between bars to be no more than a specified value in working units
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval<br>exLimitInterval+exLimitIntervalTreatAsWorking"
Send ComGroupBars of hoItems h1 "" False h2 "" True 95 "0;0;2"
Set ComItemBar of hoItems 0 "<*>" OLEexBarKeepWorkingCount to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1221
|
How can I specify the distance between bars to be no more than a specified value
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval + exLimitInterval"
Send ComGroupBars of hoItems h1 "" False h2 "" True 31 "0;0;2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1220
|
How can I specify the distance between bars to be no less than a specified value in working units
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval<br>exLimitIntervalMin + exLimitIntervalTreatAsWorking"
Send ComGroupBars of hoItems h1 "" False h2 "" True 79 "2"
Set ComItemBar of hoItems 0 "<*>" OLEexBarKeepWorkingCount to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1219
|
How can I specify the distance between bars to be no less than a specified value
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval + exLimitIntervalMin"
Send ComGroupBars of hoItems h1 "" False h2 "" True 15 "2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1218
|
How do I specify the distance between bars to be exactly the specified value in working units
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "9/26/2006" "9/29/2006" "" "B"
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval<br>exLimitInterval + exLimitIntervalTreatAsWorking"
Send ComGroupBars of hoItems h1 "" False h2 "" True 95 "2"
Set ComItemBar of hoItems 0 "<*>" OLEexBarKeepWorkingCount to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1217
|
How do I specify the distance between bars to be exactly the specified value
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "" "A"
Get ComAddItem of hoItems "" to Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Unknown" "9/26/2006" "9/29/2006" "" "B"
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Set ComLink of hoItems "L1" OLEexLinkStartPos to 2
Set ComLink of hoItems "L1" OLEexLinkEndPos to 0
Set ComLink of hoItems "L1" OLEexLinkText to "exPreserveBarLength + exIgnoreOriginalInterval"
Send ComGroupBars of hoItems h1 "" False h2 "" True 7 "2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1216
|
How do I specify the day's duration to be working only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "9/20/2006"
Set ComPaneWidth of hoChart1 False to 48
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" Nothing
Set ComItemBar of hoItems h1 "A" OLEexBarKeepWorkingCount to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1215
|
How do I specify the the user can't resize the bar at left side ( starting point )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "9/20/2006"
Set ComPaneWidth of hoChart1 False to 48
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "not resizable on left"
Set ComItemBar of hoItems h1 "A" OLEexBarKeepWorkingCount to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1214
|
How do I specify the the user can't resize the bar at left side ( starting point )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "not resizable on left"
Set ComItemBar of hoItems h1 "A" OLEexBarCanResize to 2
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1213
|
How do I specify the the user can't resize the bar at right side ( ending point )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "not resizable on right"
Set ComItemBar of hoItems h1 "A" OLEexBarCanResize to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1212
|
How do I specify the the user can't resize the bar at runtime
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "not resizable"
Set ComItemBar of hoItems h1 "A" OLEexBarCanResize to False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1211
|
How do I specify the day's duration to be at least a specified length
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "> 2 Days"
Set ComItemBar of hoItems h1 "A" OLEexBarMinDuration to 2
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1210
|
How do I specify the day's duration to be maximum a specified length
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/26/2006" "9/29/2006" "A" "< 3 Days"
Set ComItemBar of hoItems h1 "A" OLEexBarMaxDuration to 3
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1209
|
I am trying to construct a timeline that is not date specific. My timeline starts at T=00:00:00 and then increases by 5 seconds. Is it possible
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to 0
Set ComUnitWidth of hoChart to 48
Set ComNonworkingDays of hoChart to 0
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%hh%>:<%nn%>:<%ss%>"
Set ComUnit of hoLevel to OLEexSecond
Set ComCount of hoLevel to 5
Send Destroy to hoLevel
Send Destroy to hoChart
End_Procedure
|
|
1208
|
How can I specify the levels using the user's Regional and Language Options
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Arial Unicode MS"
Send Destroy to hoStdFont
Set ComHeaderHeight to 36
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "5/30/2010"
Set ComPaneWidth of hoChart False to 0
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComUnitWidth of hoChart to 36
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<b><%loc_mmmm%></b> <%yyyy%><br><%loc_sdate%><r> <%ww%> "
Set ComToolTip of hoLevel to (ComLabel(hoLevel))
Set ComUnit of hoLevel to OLEexWeek
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%loc_ddd%><br><%d%>"
Set ComToolTip of hoLevel1 to (ComLabel(hoLevel1))
Send Destroy to hoLevel1
Set ComToolTip of hoChart to "<%loc_ldate%>"
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1207
|
How do I arrange, format or layout the item on multiple levels or lines, as a subform
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComDrawGridLines to OLEexRowLines
Set ComHeaderVisible to OLEexHeaderHidden
Set ComItemsAllowSizing to OLEexResizeItem
Set ComMarkSearchColumn to False
Set ComScrollBySingleLine to True
Set ComBackColor to (RGB(255,255,255))
Set ComSelBackColor to (RGB(255,255,255))
Set ComSelForeColor to |CI$80000012
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Variant var_Column
Get ComAdd of hoColumns "Column" to var_Column
Set ComVisible of hoColumns to False
Variant voEditor
Get ComEditor of hoColumns to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEEditType
Send Destroy to hoEditor
Send Destroy to hoColumns
Variant var_Column1
Get ComAdd "Column" to var_Column1
Set ComVisible to False
Variant voEditor1
Get ComEditor to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEDropDownType
Send Destroy to hoEditor1
Variant var_Column2
Get ComAdd "Column" to var_Column2
Set ComVisible to False
Variant voEditor2
Get ComEditor to voEditor2
Handle hoEditor2
Get Create (RefClass(cComEditor)) to hoEditor2
Set pvComObject of hoEditor2 to voEditor2
Set ComEditType of hoEditor2 to OLEDropDownType
Send Destroy to hoEditor2
Variant var_Column3
Get ComAdd "Column" to var_Column3
Set ComVisible to False
Variant voEditor3
Get ComEditor to voEditor3
Handle hoEditor3
Get Create (RefClass(cComEditor)) to hoEditor3
Set pvComObject of hoEditor3 to voEditor3
Set ComEditType of hoEditor3 to OLECheckValueType
Set ComOption of hoEditor3 OLEexCheckValue2 to 1
Send Destroy to hoEditor3
Variant var_Column4
Get ComAdd "Column" to var_Column4
Set ComVisible to False
Variant voEditor4
Get ComEditor to voEditor4
Handle hoEditor4
Get Create (RefClass(cComEditor)) to hoEditor4
Set pvComObject of hoEditor4 to voEditor4
Set ComEditType of hoEditor4 to OLEDateType
Send Destroy to hoEditor4
Variant voColumn
Get ComAdd "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant var_Column5
Get ComAdd "Column" to var_Column5
Set ComVisible to False
Variant voEditor5
Get ComEditor to voEditor5
Handle hoEditor5
Get Create (RefClass(cComEditor)) to hoEditor5
Set pvComObject of hoEditor5 to voEditor5
Set ComEditType of hoEditor5 to OLEDropDownType
Send Destroy to hoEditor5
Variant var_Column6
Get ComAdd "Column" to var_Column6
Set ComVisible to False
Set ComDef OLEexCellSingleLine to 0
Variant var_Editor
Get ComEditor to var_Editor
Set ComEditType to OLEMemoType
Set ComButtonWidth to 17
Set ComOption OLEexDownArrow to 0
Set ComOption OLEexEndKey to 0
Set ComOption OLEexHomeKey to 0
Set ComOption OLEexLeftArrow to 0
Set ComOption OLEexMemoAutoSize to 0
Set ComOption OLEexMemoVScrollBar to -1
Set ComOption OLEexPageDownKey to 0
Set ComOption OLEexPageUpKey to 0
Set ComOption OLEexRightArrow to 0
Set ComOption OLEexUpArrow to 0
Set ComVisible to False
Variant voColumn1
Get ComAdd "Column" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "" to h0
Set ComCellValue of hoItems h0 9 to "Dismiss"
Set ComCellFormatLevel of hoItems h0 0 to "12;" "[b=0][bg=RGB(248,248,248)]/(" "[b=0][bg=RGB(248,248,248)]:12,(1;" "[b=0]/(" "[b=0]:1,(25;(5;" "[b=0]/(("Subject:"[b=0]:80,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,(" "[b=0][bg=RGB(255,0,0)]:5,1[b=0])," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/1;" "[b=0]))/20;("Location:"[b=0]:80,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,2[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]),((" "[b=0]:10,"Label:"[b=0])):50,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,3[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/50;(10;" "[b=0]/(1;" "[b=0][bg=RGB(255,0,0)]/("Recurrence:"[b=0]:80,"Occurs every day effective 20/04/2007 from 01:00 to 01:01."[b=0])/1;" "[b=0][bg=RGB(255,0,0)])/10;" "[b=0])/23;(4[b=0]:20,"Reminder:"[b=0]:60,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,5[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]),((" "[b=0]:5,6[b=0])):30,((" "[b=0]:10,"Show time as:"[b=0])):90,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,7[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/(12;" "[b=0]/(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,8[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/35;(5;" "[b=0]/(" "[b=0]," "[b=0],((" "[b=0]:40,9[b=0])))/5;" "[b=0]))," "[b=0]:1)/1;" "[b=0])," "[b=0][bg=RGB(248,248,248)]:12)/12;" "[b=0][bg=RGB(248,248,248)]"
Set ComCellHasCheckBox of hoItems h0 4 to True
Set ComCellHasButton of hoItems h0 9 to True
Set ComCellHAlignment of hoItems h0 9 to OLECenterAlignment
Set ComCellVAlignment of hoItems h0 8 to OLEexTop
Set ComCellForeColor of hoItems h0 8 to (RGB(0,0,0))
Set ComCellHasButton of hoItems h0 6 to True
Set ComCellValue of hoItems h0 6 to "<img>1</img>"
Set ComCellValueFormat of hoItems h0 6 to OLEexHTML
Set ComCellHAlignment of hoItems h0 6 to OLECenterAlignment
Set ComItemHeight of hoItems h0 to 296
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1206
|
How can I arrange the columns on multiple levels
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 48
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Title" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "FirstName" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "LastName" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns "Photo" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Variant voColumn4
Get ComAdd of hoColumns "Address" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComVisible of hoColumn4 to False
Set ComDef of hoColumn4 OLEexCellSingleLine to False
Send Destroy to hoColumn4
Variant voColumn5
Get ComAdd of hoColumns "Personal Info" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFormatLevel of hoColumn5 to "3:48,(0/1/2),4:96"
Set ComDef of hoColumn5 OLEexCellFormatLevel to "3:48,(0/1/2),4:96"
Send Destroy to hoColumn5
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2010"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Sales Representative" to h
Set ComCellValue of hoItems h 1 to "Nancy"
Set ComCellValue of hoItems h 2 to "Davolio"
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
Set ComCellPicture of hoItems h 3 to (vPicture)
Set ComCellValue of hoItems h 4 to "507-20th Ave. E.Apt. 2A"
Send ComAddBar of hoItems h "Task" "1/1/2010" "1/5/2010" 2 2
Send ComAddBar of hoItems h "Task" "1/4/2010" "1/8/2010" 1 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1205
|
Is it possible to display a bar only using a gradient color using the exBarColor option
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/31/2009"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComStartColor of hoBar to (RGB(255,255,255))
Set ComEndColor of hoBar to (ComStartColor(hoBar))
Set ComHeight of hoBar to 17
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Types" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
Variant h
Get ComAddItem of hoItems "W/h Gradient" to h
Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarPattern to 227
Get ComAddItem of hoItems "W/h Color" to h
Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarPattern to 227
Set ComItemBar of hoItems h "" OLEexBarColor to 255
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1204
|
Is it possible to display a bar only using a gradient color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/31/2009"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComStartColor of hoBar to (RGB(255,255,255))
Set ComEndColor of hoBar to (ComStartColor(hoBar))
Set ComHeight of hoBar to 17
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Types" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
Variant h
Get ComAddItem of hoItems "W/h Gradient" to h
Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarPattern to 227
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1203
|
Is it possible to display a bar only using a gradient color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/31/2009"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComStartColor of hoBar to (RGB(255,255,255))
Set ComEndColor of hoBar to (ComColor(hoBar))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Types" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
Variant h
Get ComAddItem of hoItems "W/h Gradient" to h
Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarPattern to 99
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1202
|
How can I display a specified bar only with a thicker border
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/31/2009"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Types" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
Variant h
Get ComAddItem of hoItems "W/h Border" to h
Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarPattern to 4099
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1201
|
Is it possible to display the shadow for a specified bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/31/2009"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Types" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
Variant h
Get ComAddItem of hoItems "W/h Shadow" to h
Send ComAddBar of hoItems h "Task" "1/4/2010" "1/9/2010" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarPattern to 8195
Send ComAddBar of hoItems (ComAddItem(hoItems,"Original")) "Task" "1/4/2010" "1/9/2010" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|